<% ' Database Connection String strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../access_db/diary.mdb") 'Admin Username/Password const UserName = "president" const Password = "VAmva2007" %> <% if not Session("DiaryAdmin") then Response.Redirect("login.asp?go=diary_manager.asp?" & Request.QueryString()) End If function dNum(n) if n >= 10 then dNum = cstr(n) Else dNum = "0" & cstr(n) End If End Function 'SQL Formatted Date Function SQLDate(dt) SQLDate = cdbl(dt) End Function Response.ExpiresAbsolute = dateadd("d", -5, date()) Response.Expires = -10 set objCon= Server.CreateObject("ADODB.Connection") set objRs = Server.CreateObject("ADODB.Recordset") objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../access_db/diary.mdb") view_date = Request.QueryString("view_date") if view_date = "" then view_date = clng(date()) %> Virginia Military Vehicle Association Diary Manager
<% SQL = "SELECT id , dte, diary.text_field, Diary_Categorys.Category, Diary_Categorys.Colour, Diary_Categorys.BgColour" & _ " FROM Diary_Categorys RIGHT JOIN diary ON Diary_Categorys.Cat_ID = diary.Category where dte = " & view_date objRs.Open SQL, objCon %>
Diary Manager
Add New Event | Edit Categories | ">Back
<%= day(view_date) & " " & monthname(month(view_date)) & " " & year(view_date) %>

Choose an Event to Edit

<% if objRs.EOF or objRs.BOF then Response.Write "
Event Date & Time
No events found for today
" Else do until objRs.EOF d = cdate(objRs("dte")) Response.Write "" Response.Write "" & objRs("text_field") & "" Response.Write "" & day(d) & " " & monthname(month(d)) & " " & year(d) & "" & vbcrlf Response.Write "" objRs.MoveNext loop Response.Write "" End If %>
























<% on error resume next objRs.Close objCon.Close set objRs= nothing set objCon = nothing %>